home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / T-Z / Teleprint 1.0.cpt / TelePrint Express™ 1.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-01-28  |  45KB  |  231 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>195</cardCount>
  7.     <cardID>11730</cardID>
  8.     <listID>40673</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on idleglobal overdogif overdog is empty thenmystartupelse if not overdog thenhide menubarhide variable watcherhide message watcherend ifend idleon doMenu whatget "Yes"if the number of this card is 1 thenpass doMenuelse if what is "Quit HyperCard" thenanswer "Quit now? (Your order will be cancelled)" with "Yes" or "No"else if what is "Home" thenanswer "Go Home now? (Your order will be cancelled)" with "Yes" or "No"end ifif it is "No" then exit doMenupass doMenuend doMenuon goNextvisual scroll leftgo Nextend goNexton goPrevvisual scroll rightgo prevend goPrevon returnKeyglobal overdogif overdog thenpass returnKeyelsesend goNext to the targetend ifend returnKeyon enterKeyif the target contains "field" then send "closeField" to the targetsend goNext to the targetend enterKeyon enterInFieldsend closeField to the targetsend goNext to the targetend enterInFieldon keyDown whichglobal deadKeysglobal validKeysglobal keyMapglobal funKeysglobal overDogglobal maxCharsglobal maxLines-- put chartonum (which)if which is in deadKeys thenplay stopplay boingexit keyDownend ifif "field" is not in the target then pass keyDownif which is return and maxLines is not empty thendo "get" && the targetif (number of lines in it >= maxLines) or¬¨(number of lines in it >= maxLines-1¬¨and last char of it is return) or¬¨(the selection is not empty) thenif the autotab of the target is true thentabkeyexit keydownelseplay stopplay boingexit keyDownend ifend ifend ifif which is in funKeys then pass keyDownif overdog and "field" is not in the target then pass keyDownif "field" is in the target and maxChars is not empty thendo "get" && the selectedLineif number of chars in it >= maxChars and the selectedText is empty thenplay stopplay boingexit keyDownend ifend ifif validKeys is not empty thenif which is not in validKeys thenplay stopplay boingexit keyDownend ifif keyMap is not empty thenget offSet(which, validKeys)send "keyDown char it of keyMap" to HyperCardexit keyDownend ifend ifpass keyDownend keyDownon commandKeyDown whatglobal overdogif overdog and what is not NumToChar(27)¬¨and what is not NumToChar(8) then pass commandKeyDownif what is in "qzxcvh?/" then pass commandKeyDownplay stopplay boingend commandKeyDownon openFieldif the style of the target is not scrolling thenget the height of the targetget it div (textheight of target)put it into numlinesget the width of the target - 6get it div 7put it into numcharselseput empty into numcharsput empty into numlinesend ifclearKeys numlines, numcharsend openFieldon clearKeys myMaxLines, myMaxChars, myValidKeys, myKeymapglobal validKeysglobal keyMapglobal maxCharsglobal maxLinesput myMaxLines into maxLinesput myMaxChars into maxCharsput myValidKeys into validKeysput myKeymap into keyMapend clearKeyson arrowKey whichglobal overdogif overdog then pass arrowKeyif the selectedField is not empty then pass arrowKeyplay stopplay boingend arrowKeyon opencardtabKeypass opencardend opencardon closeCardglobal validKeysput empty into validKeyspass closeCardend closeCardon errorMsg messageglobal overdogglobal overrideanswer message with "Debug" or "Quit"if it is "Debug" and overdog thendebug checkpointexit errorMsgelse if it is "Debug" thenask "Superuser Password" with "metablot"if it is "metablot" thenput true into overdogset userlevel to 5debug checkpointexit errorMsgend ifelse if it is "Quit" and overdog thenexit to HyperCardend ifmyGoHomeexit to HyperCardend errorMsgon gocheck stackname,cardnoset lockMessages to trueset lockRecent to truego to card id cardno of stack stacknameif the short id of this card is not cardno¬¨or the short name of this stack is not stackname thenerrorMsg "goCheck: couldn't find card id "&cardNo&¬¨" of stack "&stacknameend ifend gocheckon closeStackleaveTelePrintpass closeStackend closeStackon leaveTelePrintglobal overdogglobal usrdirglobal ImageFilesput empty into overdogrepeat with i = 1 to number of lines in ImageFilesget line i of ImageFilesif it is not empty and ":" is not in it thendeletefile usrdir & itend ifend repeatend leaveTelePrinton openStackmyStartUpend openStackon myStartUpset cursor to watchgo firstglobal myHomeStackglobal dclickglobal overdogglobal usrdirglobal VendorIDglobal autoprintglobal SalesTaxglobal GroupNameglobal CentralPhoneglobal AreaCodeglobal GoodieExpif overdog is empty then put false into overdogput 0 into dclickset the UserModify to trueget the long name of this stackput systemfolder() into usrdirput card field "VendorID" into VendorIDput card field "autoprint" into autoprintput card field "SalesTax" into SalesTaxput card field "GroupName" into GroupNameput card field "CentralPhone" into CentralPhoneput card field "AreaCode" into AreaCodeput card field "stackexp" into stackexpput card field "GoodieExp" into GoodieExpconvert GoodieExp to secondsconvert stackexp to secondsif stackexp<the seconds and not overdog thenanswer "Sorry, but the pricing in this stack is no longer valid."&&¬¨return & "Please call TelePrint Systems, Inc. at 1-800-336-7390"&&¬¨"for a free update." with "Quit" or "Home"if it is "Quit" thensend "doMenu"&&quote&"Quit HyperCard"&quote to HyperCardelse go Homeexit myStartUpend ifglobal deadKeysglobal statesglobal funKeysglobal numericKeysglobal upperAlphaglobal lowerAlphaglobal alphaKeysglobal punctKeysglobal validKeysglobal keyMapput "`"&numToChar(27)&numtochar(1)&numtochar(4)&numtochar(5) into deadKeysput "AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,"&¬¨"IA,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,"&¬¨"OK,OR,PA,PR,RI,SC,SD,TN,TX,UT,VT,VI,VA,WA,WV,WI,WY" into statesput NumToChar(3) & NumToChar(8) & return & tab &¬¨NumToChar(28) & NumToChar(29) into funKeysput "0123456789" into numericKeysput "ABCDEFGHIJKLMNOPQRSTUVWXYZ" into upperAlphaput "abcdefghijklmnopqrstuvwxyz" into lowerAlphaput upperAlpha & lowerAlpha into alphaKeysput "!@#$%^&*()-_=+[{}];:',<.>/?`~\|"&quote into punctKeysput empty into validKeysput empty into keymapif not overdog thenset userlevel to 3 -- paintingset textarrows to trueset powerkeys to falseset blindTyping to falsehide message windowhide tool windowhide pattern windowhide menubar-- hide titlebarset the cantAbort of this stack to trueset the cantPeek of this stack to trueelseset the cantAbort of this stack to falseset the cantPeek of this stack to falseend ifcheckForMissingFontsend myStartUpon myGoHomego to card 1 of this stackemptymeend myGoHomeon stdPhoneOpenFieldglobal numericKeysglobal punctKeysclearKeys 1, 16, numericKeys&punctKeys&spaceend stdPhoneOpenFieldon stdPhoneCloseField switchglobal AreaCodeif switch is not empty and target is empty then exit stdPhoneCloseFieldget FormatPhone(target)if number of chars in it is 8 then get FormatPhone(AreaCode & target)if it is not empty thenput it into the targetselect after text of the targetelseanswer "That is not a valid phone number.  Please re-enter."select text of the targetexit to HyperCardend ifend stdPhoneCloseFieldon altPhoneCloseFielddo "get"&&the targetif isnum(it) then stdPhoneCloseField okEmptyend altPhoneCloseFieldon emptyMeglobal BillToNameglobal BillToAddrglobal BillToCityglobal BillToStateglobal BillToZIPglobal BillToAttnglobal BillToPhoneglobal ShipToNameglobal ShipToAddrglobal ShipToCityglobal ShipToStateglobal ShipToZIPglobal ShipToAttnglobal ShipToPhoneglobal BillToglobal ShipToglobal Itemsglobal SubTotalglobal Taxglobal PHglobal Totalglobal DefaultLogoglobal DefaultTypeStyleglobal DefaultDesignglobal OverDogput empty into BillToNameput empty into BillToAddrput empty into BillToCityput empty into BillToStateput empty into BillToZIPput empty into BillToAttnput empty into BillToPhoneput empty into ShipToNameput empty into ShipToAddrput empty into ShipToCityput empty into ShipToStateput empty into ShipToZIPput empty into ShipToAttnput empty into ShipToPhoneput empty into BillToput empty into ShipToput empty into Itemsput empty into SubTotalput empty into Taxput empty into PHput empty into Totalput empty into DefaultLogoput empty into DefaultTypeStyleput empty into DefaultDesignput empyt into OverDogglobal searchForput empty into searchForend emptyMefunction validZIP ZIPCodeif number of chars in ZIPCode is 5 thenif isint(ZIPCode) thenreturn trueend ifelse if number of chars in ZIPCode is 10 thenif char 6 of ZIPCode is not "-" thenreturn falseend ifif isint(char 1 to 5 of ZIPCode)¬¨and isint(char 7 to 10 of ZIPCode) thenreturn trueend ifend ifreturn falseend validZIPfunction isint thingrepeat with i = 1 to number of chars in thingif char i of thing is not in "0123456789" then return falseend repeatreturn trueend isintfunction validState stateglobal statesif state is empty then return falseif number of chars in state is not 2 then return falseif state contains "," then return falseif state is in states then return truereturn falseend validStateon calcBillToglobal BillToNameglobal BillToAddrglobal BillToCityglobal BillToStateglobal BillToZIPglobal BillToAttnglobal BillToPhoneglobal BillToget emptyget it & BillToNameif it is not empty then get it & returnget it & BillToAttnif last char of it is not return then get it & returnget it & billToAddrget it & return & BillToCityget it & "," && BillToStateget it & "  " & BillToZIPget it & return & "Phone: " & BillToPhoneput it into BillToend calcBillToon calcShipToglobal ShipToNameglobal ShipToAddrglobal ShipToCityglobal ShipToStateglobal ShipToZIPglobal ShipToAttnglobal ShipToPhoneglobal ShipToget emptyget it & ShipToNameif it is not empty then get it & returnget it & ShipToAttnif last char of it is not return then get it & returnget it & ShipToAddrget it & return & ShipToCityget it & "," && ShipToStateget it & "  " & ShipToZIPget it & return & "Phone: " & ShipToPhoneput it into ShipToend calcShipToon newItem newItemNoglobal ItemID--  global CustID, TimeStamp -- set at saveItem timeglobal ItemNo, Quan, Priceglobal FlatChargeglobal DefaultLogoglobal DefaultTypeStyleglobal DefaultDesignglobal Design, TypeStyleglobal LogoFile, ArtWorkFilelock screenclearItemgetPricing newItemNo-- put newItemNo into ItemNoglobal Entered1, Entered2, Entered3, Entered4global Changed, savedglobal validatedglobal printedglobal updatedput false into entered1put false into entered2put false into entered3put false into entered4put true into changedput false into savedput false into validatedput false into printedput false into updated-- put FlatCharge into Priceend newItemon clearItemglobal ItemID--  global CustID, TimeStamp -- set at saveItem timeglobal ItemNo, Quan, Priceglobal Descrglobal Design, TypeStyleglobal LogoFile, ArtWorkFileglobal NumPlies, StartNumglobal Paperkind, PaperColorglobal ForeInkColor, BackInkColorglobal Text1, Text2, Text3, Text4, Text5global Text6, Text7, Text8, Text9, Text10global Text11, Text12, Text13, Text14, Text15global Text16, Text17, Text18, Text19, Text20global Text21, Text22global DefaultLogoglobal DefaultTypeStyleglobal DefaultDesignglobal FlatChargeput empty into ItemIDput empty into ItemNoput empty into Quanput empty into Priceput empty into Descrif DefaultLogo is not empty thenput DefaultLogo into LogoFileelseput empty into LogoFileend ifif DefaultTypeStyle is not empty thenput DefaultTypeStyle into TypeStyleelseput "D" into TypeStyleend if--  put DefaultDesign into Designput "1" into Designput empty into ArtworkFileput 1 into NumPliesput empty into StartNumput empty into PaperKindput empty into PaperColorput empty into ForeInkColorput empty into BackInkColorset the numberFormat to "0.######"repeat with i = 1 to 22do "put empty into Text"&iend repeatend clearItemon oldItem oldItemNo, oldItemIDglobal ItemIDglobal CustID, TimeStampglobal ItemNo, Quan, Priceglobal Descrglobal Design, TypeStyleglobal LogoFile, ArtWorkFileglobal NumPlies, StartNumglobal Paperkind, PaperColorglobal ForeInkColor, BackInkColorglobal Text1, Text2, Text3, Text4, Text5global Text6, Text7, Text8, Text9, Text10global Text11, Text12, Text13, Text14, Text15global Text16, Text17, Text18, Text19, Text20global Text21, Text22global CurrentItemloadItem oldItemIDput oldItemID into ItemIDgrab "Quan"grab "Design"grab "TypeStyle"grab "LogoFile"grab "ArtWorkFile"grab "NumPlies"grab "StartNum"grab "PaperKind"grab "PaperColor"grab "ForeInkColor"grab "BackInkColor"set the numberFormat to "0.######"repeat with i = 1 to 22do "grab "&quote&"Text"&i&quoteend repeatglobal Entered1, Entered2, Entered3, Entered4global Changed, savedglobal validatedglobal printedglobal updatedput true into entered1put true into entered2put true into entered3put true into entered4put false into changedput true into savedput true into printedput false into updatedgetPricing oldItemNoend oldItemon loadItem IDtoLoadglobal ItemsDetail,CurrentItemput length(ItemsDetail) into strlenget offset("¬ßItemID:"&&IDtoLoad,ItemsDetail)put it into startget offset("¬ßItemID: ", char start+1 to strlen of ItemsDetail)if it is 0 then get strlenelse get it + start + 1 - 3put it into finishput char start to finish of ItemsDetail into CurrentItemend loadItemon grab whatset cursor to busyglobal CurrentItemdo "global"&&whatput length(CurrentItem) into strlenget offset("¬ß"&what&": ", CurrentItem)if it is 0 thendo "put empty into"&&whatexit grabend ifput it + length(what) + 3 into startget offset(return & "¬ß", char start to strlen of CurrentItem)if it is 0 then get strlen-1 -- skip final return charelse get it + start - 2put it into finishdo "put char start to finish of CurrentItem into"&&whatend grabon KillItem IDtoKillglobal ItemsDetailput length(ItemsDetail) into strlenget offset("¬ßItemID:"&&IDtoKill,ItemsDetail)put it into startget offset("¬ßItemID: ", char start+1 to strlen of ItemsDetail)if it is 0 then get strlenelse get it + start - 1put it into finishdelete char start to finish of ItemsDetailend KillItemon editItemglobal XTemplif XTempl is not -1 thengo to card id XTemplGetInfounlock screen with visual scroll leftend ifend editItemon getPricing whichItemNoglobal Refglobal FormHglobal FormVglobal ItemNoglobal Descrglobal Templglobal XTempl -- pricing templateglobal YTempl -- data collection templateglobal FlatChargeglobal SalesUnitglobal DefPliesglobal UnitPriceglobal InkColorsglobal SingleColorsglobal FirstColorsglobal MiddleColorsglobal LastColorsglobal SingleWeightsglobal FirstWeightsglobal MiddleWeightsglobal LastWeightsglobal SWPricesglobal FWPricesglobal MWPricesglobal LWPricesglobal PliesList-- no need to do anything if data alread loadedif whichItemNo is ItemNo then exit getPricinglock screenset lockmessages to trueset lockRecent to trueset cursor to busypush cardgo to bg "Price List"set cursor to busyfind whole whichItemNo in field "ItemNo"set cursor to busyif the foundText is empty thenpop carderrorMsg "Bad Item #"&whichItemNoend ifset cursor to busyget word 2 of the foundlineput line it of field "ItemNo" into ItemNoput line it of field "Descr" into Descrput line it of field "Templ" into Templput field "Ref" into Refput field "FormH" into FormHput field "FormV" into FormVput field "XTempl" into XTemplput field "YTempl" into YTemplput field "FlatCharge" into FlatChargeput field "SalesUnit" into SalesUnitput field "DefPlies" into DefPliesput field "UnitPrice" into UnitPriceput field "InkColors" into InkColorsput field "SingleColors" into SingleColorsput field "FirstColors" into FirstColorsput field "MiddleColors" into MiddleColorsput field "LastColors" into LastColorsput field "SingleWeights" into SingleWeightsput field "FirstWeights" into FirstWeightsput field "MiddleWeights" into MiddleWeightsput field "LastWeights" into LastWeightsput field "SWPrices" into SWPricesput field "FWPrices" into FWPricesput field "MWPrices" into MWPricesput field "LWPrices" into LWPricesset cursor to busypop cardget emptyif unitPrice is not empty thenrepeat with i = 1 to number of lines in UnitPriceif line i of unitPrice is not empty thenget it && iend ifend repeatend ifput it into PliesListset lockMessages to falseset lockrecent to falseend getPricingon acceptItem needartglobal ItemIDglobal CustID, TimeStampglobal ItemNo, Quan, Priceglobal Descrglobal Design, TypeStyleglobal LogoFile, ArtWorkFileglobal NumPlies, StartNumglobal Paperkind, PaperColorglobal ForeInkColor, BackInkColorglobal Text1, Text2, Text3, Text4, Text5global Text6, Text7, Text8, Text9, Text10global Text11, Text12, Text13, Text14, Text15global Text16, Text17, Text18, Text19, Text20global Text21, Text22global VendorIDglobal ItemsDetailglobal DefaultLogoglobal DefaultTypeStyleglobal DefaultDesignglobal LayoutNumsglobal ImageFilesglobal Changed, savedif Changed or not saved thenif ItemID is empty then put the seconds mod 1000000 into ItemIDelseKillItem ItemIDend ifset cursor to busyput NumToChar(13) into crget "¬ßItemID:" && ItemID & crget it & "¬ßItemNo:" && ItemNo & crget it & "¬ßQuan:" && Quan & crget it & "¬ßPrice:" && Price & crget it & "¬ßDescr:" && Descr & crget it & "¬ßDesign:" && Design & crget it & "¬ßTypeStyle:" && TypeStyle & crget it & "¬ßLogoFile:" && LogoFile & crif needart is not empty thenput "c."&VendorID&"."&ItemID into ArtworkFileend ifget it & "¬ßArtworkFile:" && ArtworkFile & crget it & "¬ßNumPlies:" && NumPlies & crget it & "¬ßStartNum:" && StartNum & crget it & "¬ßPaperKind:" && PaperKind & crget it & "¬ßPaperColor:" && PaperColor & crget it & "¬ßForeInkColor:" && ForeInkColor & crget it & "¬ßBackInkColor:" && BackInkColor & crset cursor to busyrepeat with i = 1 to 22do "put Text"&i&" into temp"if temp is not empty thenget it & "¬ßText"&i&":" && temp & crend ifend repeatput it after ItemsDetailif Artworkfile is not empty then addImage ArtworkFileif LogoFile contains ":" then addImage LogoFileset cursor to busyput ItemNo && ItemID & return after LayoutNumsput LogoFile into DefaultLogoput TypeStyle into DefaultTypeStyleput Design into DefaultDesignend ifset cursor to busyAddLine ItemNo,Quan,Descr,ItemID,Priceset cursor to busyput empty into ItemIDend acceptItemon AddImage ImageFileNameglobal ImageFilesif ImageFileName is not in ImageFiles thenput ImageFileName & return after ImageFilesend ifend AddImageon AddLine ItemNo,Quan,Descr,TypeNo,Priceglobal Itemsput lpad(ItemNo,5) into ItemNoput lpad(TypeNo,7) into TypeNoput rpad(Descr,43) into Descrput lpad(Quan,7) into Quanput roundToCent(Price) into Priceput lpad(Price,10) into Priceput ItemNo&&TypeNo&&Quan&"   "&Descr&&Price&&return¬¨after Itemscalctotalend AddLineon calctotalglobal Itemsglobal SubTotalglobal Discountglobal SalesTaxglobal PHglobal Taxglobal Totalglobal ShipToStateput "0.00" into subtotrepeat with i = 1 to number of lines in Itemsadd last word of line i of Items to subtotend repeatput roundToCent(subtot) into tempput roundToCent(temp*-.10) into Discountput roundToCent(temp + Discount) into SubTotalput roundToCent(SubTotal*.07) into PHif Subtotal is 0 then put "0.00" into PHelse if PH<3 then put "3.00" into PHif ShipToState is "IL" thenput roundToCent(SubTotal * SalesTax) into Taxelseput "0.00" into Taxend ifput roundToCent(SubTotal + PH + Tax) into Totalend calctotalfunction lpad itm,lenput char 1 to len of itm into itmrepeat while length(itm) < lenput space & itm into itmend repeatreturn itmend lpadfunction rpad itm,lenput char 1 to len of itm into itmrepeat while length(itm) < lenput itm & space into itmend repeatreturn itmend rpadon newOrderglobal oldOrderIDglobal Itemsglobal SubTotalglobal Taxglobal PHglobal Totalput empty into oldOrderIDget "0.00"put it into SubTotalput it into Taxput it into PHput it into Total-- goNextend newOrderon CalcPriceglobal Quanglobal QuanIndglobal SalesUnitglobal FlatChargeglobal UnitPriceglobal CustomFeeglobal SWPricesglobal NumPliesglobal p1windglobal Priceget Quan/SalesUnitput it into QuanInd-- global overdog-- if overdog then answer QuanIndget QuanInd * (line NumPlies of UnitPrice)get it + QuanInd * line p1wind of SWPricesget it + FlatChargeget roundToCent(it)put it into Priceend CalcPricefunction roundToCent amountput the numberFormat into oldFormatset numberFormat to "0.00" -- sets dollar formatget round(amount*100)/100get char 1 to length(it) of itset numberFormat to oldFormatreturn itend roundToCenton NewMultiglobal MultiOrderglobal entered1global entered2global entered3global entered4put empty into MultiOrderput false into entered1put false into entered2put false into entered3put false into entered4end NewMultion cancelItemglobal ItemIDglobal ItemNoglobal Quanglobal Descrglobal Priceglobal Itemsglobal ItemsSaveif ItemID is not empty thenanswer "Delete this item from the order, or just cancel changes?"¬¨with "Delete" or "Cancel"if it is "Delete" thenkillItem ItemIDput empty into ItemIDpop cardelselock screenput ItemsSave into ItemsCalcTotalpop cardend ifelseanswer "Cancel this item?" with "Yes" or "No"if it is "No" then exit cancelItempop cardend ifunlock Screen with visual effect wipe rightend cancelItemon RefreshMultiglobal MultiOrderput 0 into irepeat with i = 1 to number of lines in MultiOrderif line i of MultiOrder is not empty thenget word 2 of line i of MultiOrderget it && word 3 of line i of MultiOrder && "Parts"get it && "$" & word 4 of line i of MultiOrderput it into line 2 of card field iset the hilite of button i to trueelseput empty into line 2 of card field iset the hilite of button i to falseend ifend repeatrepeat with j = i+1 to number of card fieldsput empty into line 2 of card field jset the hilite of button j to falseend repeatend RefreshMultion orderMultiItem itemNo, slot, itemKind, oldNewglobal Quan, P1wind, Priceglobal PliesListglobal NumPliesglobal MultiOrderglobal SalesUnitif line slot of MultiOrder is not empty thenset the hilite of cd button slot to trueanswer "Delete this item from your order, Modify it, or neither?"¬¨with "Delete" or "Modify" or "Cancel"if it is "Delete" thenset the hilite of card button slot to falseput empty into line 2 of card field slotput empty into line slot of MultiOrderexit orderMultiItemelse if it is not "Modify" thenexit orderMultiItemend ifend ifif itemKind is empty then put "Form" into itemKindgetPricing itemNoget word 1 of SalesUnitput it into q1put 2 * it into q2put 4 * it into q3answer "How many?" with q1 or q2 or q3put it into Quanif Quan is not "None" thenif pliesList is empty thenput 1 into NumPlieselse if number of words in pliesList is 1 thenput word 1 of pliesList into NumPlieselseput word 1 of PliesList into p1put word 2 of PliesList into p2if p2 is not empty then put " or " before p2put word 3 of PliesList into p3if p3 is not empty then put " or " before p3do "answer "&quote&"How many parts?"&quote&" with "&p1&p2&p3put it into NumPliesend ifput 1 into p1WindCalcPriceset the hilite of card button slot to trueget Quan && NumPlies && "Parts" && "$" & Priceput it into line 2 of card field slotget itemNo && Quan && NumPlies && Price && itemKind && oldNewput it into line slot of MultiOrderelseset the hilite of card button slot to falseput empty into line 2 of card field slotput empty into line slot of MultiOrderend ifend orderMultiItemon multiGoNextglobal MultiOrderif MultiOrder contains "None" thenclearMultimultiAccept "None"end ifif "old" is not in MultiOrder thenclearMultiend ifif MultiOrder contains "Form" thengo to card "MultiForm"else if MultiOrder contains "Check" thengo to card "MultiCheck"else if MultiOrder contains "Env" thengo to card "MultiEnv"elsepop card -- all doneend ifend multiGoNexton multiAccept whichKindglobal multiOrderglobal Quanglobal Price-- answer multiOrder--  if whichKind is not "None" then print cardrepeat with i = 1 to number of lines in multiOrderif line i of multiOrder contains whichKind thengetPricing word 1 of line i of multiOrderput word 2 of line i of multiOrder into Quanput word 4 of line i of multiOrder into PriceacceptItemput empty into line i of multiOrderend ifend repeatend multiAccepton goBackend goBackon clearMulticlearItemglobal Entered1, Entered2, Entered3, Entered4global Changed, savedglobal validatedglobal printedglobal updatedput false into entered1put false into entered2put false into entered3put false into entered4put true into changedput false into savedput false into validatedput false into printedput false into updatedend clearMultion sorryanswer "Sorry, but this feature is not yet implemented."end sorryon checkForMissingFonts-- Requires handler: checkHCFont-- check to see if the fonts needed for the stacks are-- installed in the system. Inform the user if they're not.get checkHCFont("Geneva","12")¬¨& checkHCFont("Monaco","12")¬¨& checkHCFont("Times","12")¬¨& checkHCFont("Helvetica","12")¬¨& checkHCFont("Avant Garde","12")¬¨& checkHCFont("Bookman","12")¬¨& checkHCFont("Palatino","12")¬¨& checkHCFont("Zapf Chancery","12")if it is empty then exit checkForMissingFontselse put it into missingFontsbeep 1-- ‚àÜ this dialog informs the user which fonts are missinganswer "These font(s) are missing from your system:" & ¬¨return & return & missingFonts & return & ¬¨"If you have access to these fonts, please install them" ¬¨&& "before continuing."end checkForMissingFonts</script>
  17.     <background id="4580" file="background_4580.xml" name="Item Detail" />
  18.     <background id="6716" file="background_6716.xml" name="Order Main" />
  19.     <background id="7570" file="background_7570.xml" name="" />
  20.     <background id="8196" file="background_8196.xml" name="" />
  21.     <background id="11986" file="background_11986.xml" name="" />
  22.     <background id="12327" file="background_12327.xml" name="SendOrSave" />
  23.     <background id="15315" file="background_15315.xml" name="" />
  24.     <background id="15923" file="background_15923.xml" name="" />
  25.     <background id="16437" file="background_16437.xml" name="" />
  26.     <background id="21053" file="background_21053.xml" name="ShowPage" />
  27.     <background id="36714" file="background_36714.xml" name="NameAddr" />
  28.     <background id="38852" file="background_38852.xml" name="Survey" />
  29.     <background id="42040" file="background_42040.xml" name="MultiData" />
  30.     <background id="43684" file="background_43684.xml" name="MultiMatic2" />
  31.     <background id="55680" file="background_55680.xml" name="" />
  32.     <background id="61874" file="background_61874.xml" name="Logos" />
  33.     <background id="70329" file="background_70329.xml" name="Catalog" />
  34.     <background id="72507" file="background_72507.xml" name="Price List" />
  35.     <card id="11730" file="card_11730.xml" marked="false" name="" owner="11986" />
  36.     <card id="34734" file="card_34734.xml" marked="false" name="" owner="11986" />
  37.     <card id="7718" file="card_7718.xml" marked="false" name="" owner="11986" />
  38.     <card id="36371" file="card_36371.xml" marked="false" name="EnterBillTo" owner="36714" />
  39.     <card id="9428" file="card_9428.xml" marked="false" name="EnterShipTo" owner="36714" />
  40.     <card id="14141" file="card_14141.xml" marked="false" name="CheckNewAddress" owner="8196" />
  41.     <card id="36231" file="card_36231.xml" marked="false" name="ChangeBillTo" owner="36714" />
  42.     <card id="37181" file="card_37181.xml" marked="false" name="ChangeShipTo" owner="36714" />
  43.     <card id="6549" file="card_6549.xml" marked="false" name="Order Template" owner="6716" />
  44.     <card id="3371" file="card_3371.xml" marked="false" name="" owner="7570" />
  45.     <card id="37923" file="card_37923.xml" marked="false" name="Question1" owner="38852" />
  46.     <card id="46362" file="card_46362.xml" marked="false" name="transmit" owner="12327" />
  47.     <card id="11381" file="card_11381.xml" marked="false" name="modem" owner="12327" />
  48.     <card id="45695" file="card_45695.xml" marked="false" name="mail" owner="12327" />
  49.     <card id="15750" file="card_15750.xml" marked="false" name="DetailTempl" owner="4580" />
  50.     <card id="53647" file="card_53647.xml" marked="false" name="DetailTempl" owner="4580" />
  51.     <card id="38269" file="card_38269.xml" marked="false" name="DetailTempl3" owner="4580" />
  52.     <card id="37566" file="card_37566.xml" marked="false" name="DetailTempl2" owner="4580" />
  53.     <card id="47574" file="card_47574.xml" marked="false" name="TShirtDetail" owner="4580" />
  54.     <card id="8667" file="card_8667.xml" marked="false" name="DetailTempl" owner="4580" />
  55.     <card id="40964" file="card_40964.xml" marked="false" name="DetailTempl" owner="4580" />
  56.     <card id="13275" file="card_13275.xml" marked="false" name="DetailTempl" owner="4580" />
  57.     <card id="27840" file="card_27840.xml" marked="false" name="DetailTempl" owner="4580" />
  58.     <card id="49360" file="card_49360.xml" marked="false" name="DetailTempl" owner="4580" />
  59.     <card id="22020" file="card_22020.xml" marked="false" name="" owner="15315" />
  60.     <card id="22696" file="card_22696.xml" marked="false" name="Letterhead Entry" owner="15315" />
  61.     <card id="17073" file="card_17073.xml" marked="false" name="" owner="15315" />
  62.     <card id="25659" file="card_25659.xml" marked="false" name="" owner="15315" />
  63.     <card id="26314" file="card_26314.xml" marked="false" name="" owner="15315" />
  64.     <card id="26749" file="card_26749.xml" marked="false" name="" owner="15315" />
  65.     <card id="26384" file="card_26384.xml" marked="false" name="" owner="15315" />
  66.     <card id="44036" file="card_44036.xml" marked="false" name="" owner="15315" />
  67.     <card id="57415" file="card_57415.xml" marked="false" name="" owner="15315" />
  68.     <card id="58900" file="card_58900.xml" marked="false" name="" owner="15315" />
  69.     <card id="60318" file="card_60318.xml" marked="false" name="" owner="15315" />
  70.     <card id="26888" file="card_26888.xml" marked="false" name="" owner="15315" />
  71.     <card id="30904" file="card_30904.xml" marked="false" name="" owner="15315" />
  72.     <card id="32638" file="card_32638.xml" marked="false" name="" owner="15315" />
  73.     <card id="20235" file="card_20235.xml" marked="false" name="" owner="15315" />
  74.     <card id="4001" file="card_4001.xml" marked="false" name="" owner="15315" />
  75.     <card id="29325" file="card_29325.xml" marked="false" name="" owner="15315" />
  76.     <card id="29890" file="card_29890.xml" marked="false" name="" owner="15315" />
  77.     <card id="28709" file="card_28709.xml" marked="false" name="Letterhead" owner="21053" />
  78.     <card id="20634" file="card_20634.xml" marked="false" name="Letterhead" owner="21053" />
  79.     <card id="14816" file="card_14816.xml" marked="false" name="BusinessCard" owner="21053" />
  80.     <card id="31152" file="card_31152.xml" marked="false" name="Stamp" owner="21053" />
  81.     <card id="25287" file="card_25287.xml" marked="false" name="NamePlate" owner="21053" />
  82.     <card id="10314" file="card_10314.xml" marked="false" name="CustomSign" owner="21053" />
  83.     <card id="30362" file="card_30362.xml" marked="false" name="Badge" owner="21053" />
  84.     <card id="16235" file="card_16235.xml" marked="false" name="style" owner="15923" />
  85.     <card id="2980" file="card_2980.xml" marked="false" name="" owner="61874" />
  86.     <card id="61569" file="card_61569.xml" marked="false" name="" owner="61874" />
  87.     <card id="15593" file="card_15593.xml" marked="false" name="" owner="61874" />
  88.     <card id="17827" file="card_17827.xml" marked="false" name="" owner="61874" />
  89.     <card id="17939" file="card_17939.xml" marked="false" name="" owner="61874" />
  90.     <card id="62550" file="card_62550.xml" marked="false" name="" owner="61874" />
  91.     <card id="55953" file="card_55953.xml" marked="false" name="" owner="55680" />
  92.     <card id="24107" file="card_24107.xml" marked="false" name="" owner="16437" />
  93.     <card id="20742" file="card_20742.xml" marked="false" name="" owner="16437" />
  94.     <card id="66128" file="card_66128.xml" marked="false" name="" owner="16437" />
  95.     <card id="66689" file="card_66689.xml" marked="false" name="" owner="16437" />
  96.     <card id="67267" file="card_67267.xml" marked="false" name="" owner="16437" />
  97.     <card id="67599" file="card_67599.xml" marked="false" name="" owner="16437" />
  98.     <card id="68181" file="card_68181.xml" marked="false" name="" owner="16437" />
  99.     <card id="23290" file="card_23290.xml" marked="false" name="" owner="16437" />
  100.     <card id="23723" file="card_23723.xml" marked="false" name="" owner="16437" />
  101.     <card id="68809" file="card_68809.xml" marked="false" name="" owner="16437" />
  102.     <card id="69298" file="card_69298.xml" marked="false" name="" owner="16437" />
  103.     <card id="41929" file="card_41929.xml" marked="false" name="MultiForm" owner="42040" />
  104.     <card id="7197" file="card_7197.xml" marked="false" name="MultiEnv" owner="42040" />
  105.     <card id="33850" file="card_33850.xml" marked="false" name="MultiCheck" owner="42040" />
  106.     <card id="60488" file="card_60488.xml" marked="false" name="" owner="42040" />
  107.     <card id="41271" file="card_41271.xml" marked="false" name="" owner="42040" />
  108.     <card id="63540" file="card_63540.xml" marked="false" name="" owner="42040" />
  109.     <card id="63835" file="card_63835.xml" marked="false" name="" owner="42040" />
  110.     <card id="64002" file="card_64002.xml" marked="false" name="" owner="42040" />
  111.     <card id="65615" file="card_65615.xml" marked="false" name="" owner="42040" />
  112.     <card id="31662" file="card_31662.xml" marked="false" name="" owner="43684" />
  113.     <card id="57991" file="card_57991.xml" marked="true" name="" owner="43684" />
  114.     <card id="58297" file="card_58297.xml" marked="true" name="" owner="43684" />
  115.     <card id="58534" file="card_58534.xml" marked="true" name="" owner="43684" />
  116.     <card id="59376" file="card_59376.xml" marked="true" name="" owner="43684" />
  117.     <card id="9814" file="card_9814.xml" marked="false" name="" owner="43684" />
  118.     <card id="11010" file="card_11010.xml" marked="false" name="" owner="43684" />
  119.     <card id="18274" file="card_18274.xml" marked="false" name="" owner="43684" />
  120.     <card id="21308" file="card_21308.xml" marked="false" name="" owner="43684" />
  121.     <card id="35569" file="card_35569.xml" marked="false" name="" owner="43684" />
  122.     <card id="21662" file="card_21662.xml" marked="false" name="" owner="43684" />
  123.     <card id="4794" file="card_4794.xml" marked="false" name="" owner="43684" />
  124.     <card id="6125" file="card_6125.xml" marked="false" name="" owner="43684" />
  125.     <card id="16807" file="card_16807.xml" marked="false" name="" owner="43684" />
  126.     <card id="19442" file="card_19442.xml" marked="false" name="" owner="43684" />
  127.     <card id="60136" file="card_60136.xml" marked="false" name="Catalog Index" owner="70329" />
  128.     <card id="71760" file="card_71760.xml" marked="false" name="" owner="70329" />
  129.     <card id="72798" file="card_72798.xml" marked="false" name="" owner="70329" />
  130.     <card id="75835" file="card_75835.xml" marked="false" name="" owner="70329" />
  131.     <card id="19858" file="card_19858.xml" marked="false" name="" owner="70329" />
  132.     <card id="76410" file="card_76410.xml" marked="false" name="Catalog Index" owner="70329" />
  133.     <card id="76978" file="card_76978.xml" marked="false" name="Catalog Index" owner="70329" />
  134.     <card id="33009" file="card_33009.xml" marked="false" name="Catalog Index" owner="70329" />
  135.     <card id="77516" file="card_77516.xml" marked="false" name="" owner="70329" />
  136.     <card id="78030" file="card_78030.xml" marked="false" name="" owner="70329" />
  137.     <card id="78402" file="card_78402.xml" marked="false" name="" owner="70329" />
  138.     <card id="78985" file="card_78985.xml" marked="false" name="" owner="70329" />
  139.     <card id="43241" file="card_43241.xml" marked="false" name="" owner="70329" />
  140.     <card id="79572" file="card_79572.xml" marked="false" name="" owner="70329" />
  141.     <card id="79916" file="card_79916.xml" marked="false" name="" owner="70329" />
  142.     <card id="52366" file="card_52366.xml" marked="false" name="Catalog Index" owner="70329" />
  143.     <card id="72228" file="card_72228.xml" marked="false" name="" owner="72507" />
  144.     <card id="81193" file="card_81193.xml" marked="false" name="" owner="72507" />
  145.     <card id="82063" file="card_82063.xml" marked="false" name="" owner="72507" />
  146.     <card id="82210" file="card_82210.xml" marked="false" name="" owner="72507" />
  147.     <card id="82713" file="card_82713.xml" marked="false" name="" owner="72507" />
  148.     <card id="5755" file="card_5755.xml" marked="false" name="" owner="72507" />
  149.     <card id="85401" file="card_85401.xml" marked="false" name="" owner="72507" />
  150.     <card id="5595" file="card_5595.xml" marked="false" name="" owner="72507" />
  151.     <card id="85854" file="card_85854.xml" marked="false" name="" owner="72507" />
  152.     <card id="86886" file="card_86886.xml" marked="false" name="" owner="72507" />
  153.     <card id="88877" file="card_88877.xml" marked="false" name="" owner="72507" />
  154.     <card id="89168" file="card_89168.xml" marked="false" name="" owner="72507" />
  155.     <card id="90383" file="card_90383.xml" marked="false" name="" owner="72507" />
  156.     <card id="90869" file="card_90869.xml" marked="false" name="" owner="72507" />
  157.     <card id="90948" file="card_90948.xml" marked="false" name="" owner="72507" />
  158.     <card id="91199" file="card_91199.xml" marked="false" name="" owner="72507" />
  159.     <card id="91803" file="card_91803.xml" marked="false" name="" owner="72507" />
  160.     <card id="92356" file="card_92356.xml" marked="false" name="" owner="72507" />
  161.     <card id="39791" file="card_39791.xml" marked="false" name="" owner="72507" />
  162.     <card id="39999" file="card_39999.xml" marked="false" name="" owner="72507" />
  163.     <card id="46306" file="card_46306.xml" marked="false" name="" owner="72507" />
  164.     <card id="46886" file="card_46886.xml" marked="false" name="" owner="72507" />
  165.     <card id="47233" file="card_47233.xml" marked="false" name="" owner="72507" />
  166.     <card id="47876" file="card_47876.xml" marked="false" name="" owner="72507" />
  167.     <card id="48183" file="card_48183.xml" marked="false" name="" owner="72507" />
  168.     <card id="48721" file="card_48721.xml" marked="false" name="" owner="72507" />
  169.     <card id="49069" file="card_49069.xml" marked="false" name="" owner="72507" />
  170.     <card id="49557" file="card_49557.xml" marked="false" name="" owner="72507" />
  171.     <card id="50154" file="card_50154.xml" marked="false" name="" owner="72507" />
  172.     <card id="50387" file="card_50387.xml" marked="false" name="" owner="72507" />
  173.     <card id="50865" file="card_50865.xml" marked="false" name="" owner="72507" />
  174.     <card id="51088" file="card_51088.xml" marked="false" name="" owner="72507" />
  175.     <card id="51388" file="card_51388.xml" marked="false" name="" owner="72507" />
  176.     <card id="51481" file="card_51481.xml" marked="false" name="" owner="72507" />
  177.     <card id="51898" file="card_51898.xml" marked="false" name="" owner="72507" />
  178.     <card id="52044" file="card_52044.xml" marked="false" name="" owner="72507" />
  179.     <card id="92774" file="card_92774.xml" marked="false" name="" owner="72507" />
  180.     <card id="93181" file="card_93181.xml" marked="false" name="" owner="72507" />
  181.     <card id="93206" file="card_93206.xml" marked="false" name="" owner="72507" />
  182.     <card id="93659" file="card_93659.xml" marked="false" name="" owner="72507" />
  183.     <card id="93948" file="card_93948.xml" marked="false" name="" owner="72507" />
  184.     <card id="93968" file="card_93968.xml" marked="false" name="" owner="72507" />
  185.     <card id="94455" file="card_94455.xml" marked="false" name="" owner="72507" />
  186.     <card id="94468" file="card_94468.xml" marked="false" name="" owner="72507" />
  187.     <card id="94920" file="card_94920.xml" marked="false" name="" owner="72507" />
  188.     <card id="95611" file="card_95611.xml" marked="false" name="" owner="72507" />
  189.     <card id="95781" file="card_95781.xml" marked="false" name="" owner="72507" />
  190.     <card id="96008" file="card_96008.xml" marked="false" name="" owner="72507" />
  191.     <card id="96345" file="card_96345.xml" marked="false" name="" owner="72507" />
  192.     <card id="96627" file="card_96627.xml" marked="false" name="" owner="72507" />
  193.     <card id="44449" file="card_44449.xml" marked="false" name="" owner="72507" />
  194.     <card id="96798" file="card_96798.xml" marked="false" name="" owner="72507" />
  195.     <card id="53267" file="card_53267.xml" marked="false" name="" owner="72507" />
  196.     <card id="97533" file="card_97533.xml" marked="false" name="" owner="72507" />
  197.     <card id="54640" file="card_54640.xml" marked="false" name="" owner="72507" />
  198.     <card id="97656" file="card_97656.xml" marked="false" name="" owner="72507" />
  199.     <card id="55032" file="card_55032.xml" marked="false" name="" owner="72507" />
  200.     <card id="98030" file="card_98030.xml" marked="false" name="" owner="72507" />
  201.     <card id="55058" file="card_55058.xml" marked="false" name="" owner="72507" />
  202.     <card id="98124" file="card_98124.xml" marked="false" name="" owner="72507" />
  203.     <card id="55361" file="card_55361.xml" marked="false" name="" owner="72507" />
  204.     <card id="98514" file="card_98514.xml" marked="false" name="" owner="72507" />
  205.     <card id="56373" file="card_56373.xml" marked="false" name="" owner="72507" />
  206.     <card id="98787" file="card_98787.xml" marked="false" name="" owner="72507" />
  207.     <card id="56635" file="card_56635.xml" marked="false" name="" owner="72507" />
  208.     <card id="98862" file="card_98862.xml" marked="false" name="" owner="72507" />
  209.     <card id="40901" file="card_40901.xml" marked="false" name="" owner="72507" />
  210.     <card id="99216" file="card_99216.xml" marked="false" name="" owner="72507" />
  211.     <card id="99383" file="card_99383.xml" marked="false" name="" owner="72507" />
  212.     <card id="99749" file="card_99749.xml" marked="false" name="" owner="72507" />
  213.     <card id="99871" file="card_99871.xml" marked="false" name="" owner="72507" />
  214.     <card id="100323" file="card_100323.xml" marked="false" name="" owner="72507" />
  215.     <card id="100357" file="card_100357.xml" marked="false" name="" owner="72507" />
  216.     <card id="100765" file="card_100765.xml" marked="false" name="" owner="72507" />
  217.     <card id="101092" file="card_101092.xml" marked="false" name="" owner="72507" />
  218.     <card id="101199" file="card_101199.xml" marked="false" name="" owner="72507" />
  219.     <card id="101572" file="card_101572.xml" marked="false" name="" owner="72507" />
  220.     <card id="101656" file="card_101656.xml" marked="false" name="" owner="72507" />
  221.     <card id="102137" file="card_102137.xml" marked="false" name="" owner="72507" />
  222.     <card id="13873" file="card_13873.xml" marked="false" name="" owner="72507" />
  223.     <card id="32083" file="card_32083.xml" marked="false" name="" owner="72507" />
  224.     <card id="32350" file="card_32350.xml" marked="false" name="" owner="72507" />
  225.     <card id="48412" file="card_48412.xml" marked="false" name="" owner="72507" />
  226.     <card id="49699" file="card_49699.xml" marked="false" name="" owner="72507" />
  227.     <card id="52772" file="card_52772.xml" marked="false" name="" owner="72507" />
  228.     <card id="54331" file="card_54331.xml" marked="false" name="" owner="72507" />
  229.     <card id="53059" file="card_53059.xml" marked="false" name="" owner="72507" />
  230. </stack>
  231.